home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / math / Laplace.lha / Laplace / Data / Projects.lha / test < prev   
Encoding:
Text File  |  1996-09-17  |  1.6 KB  |  107 lines
  1. #LAPLACE
  2. #USEFLOAT=FALSE
  3. #USEERROR=TRUE
  4. #SIMPLIFY=TRUE
  5. #ERRBND=15
  6. #EXPDSP=6
  7. #PREC=4
  8. #F1=f(x)=
  9. #F2=g(x)=
  10. #F3=h(x)=f(x)/g(x)
  11. #F4=matrix(
  12. #F5=vector(
  13. #F6=diff(f)
  14. #F7=diff(g)
  15. #F8=diff(h)
  16. #F9=taylor(f,0)
  17. #F10=taylor(f,1)
  18. #F11=%(run type s:startup-sequence)
  19. #F12=
  20. #F13=
  21. #F14=
  22. #F15=
  23. #F16=
  24. #F17=
  25. #F18=
  26. #F19=
  27. #F20=
  28. ; complex numbers
  29. a=3+4*i,b=12+13*i
  30. arc(a)
  31. 2^a,a^2,a^b,b^a
  32. a*b,a/b,1/a
  33. abs(a),conj(a)
  34. ln(b),log(a),exp(a),sqrt(i)
  35. sin(a),cos(a),tan(a),cot(a)
  36. sinh(a),cosh(a),tanh(a)
  37. asin(a),acos(a),atan(a),acot(a)
  38. asinh(a),acosh(a),atanh(a)
  39.  
  40. ; set manipulation
  41. A=set(1,3,5,6,4,2,4,6,7)
  42. count(A),average(A),error(A),sigma(A)
  43. A+1, 1+A, A*2, 2*A
  44. B=set([1,2,3],[3,4,5],[5,6,6],[7,8,9])
  45. B+[1,3,5],B×[1,3,5],[1,3,5]×B
  46.  
  47. ; constants
  48. i^2,i^3,i^4,i^5
  49. ln(e),sin(pi),cos(pi)
  50. const(x)
  51. sin(x+pi),sin(x+2*pi),cos(x+pi),cos(x-pi)
  52.  
  53. ; equations
  54. const(x)
  55. A=eq(x^2,2)
  56. sqrt(A),sin(A)
  57. A+1,1+A,2*A,A*2
  58. A^2,e^A
  59.  
  60. ; matrix
  61. A=[1,2,3;4,5,6;7,8,9]
  62. B=[4,7,5;1,8,9;7,5,1]
  63. A*B,B*A
  64. det(B),spur(A)
  65. spur(A*B),spur(B*A)
  66. solve(A)
  67. rank(A)
  68. solve(B)
  69. rank(B)
  70. cvector(A,1),rvector(A,2)
  71. B'=orthogonal(B)
  72. cvector(B',1) *cvector(B',2)
  73. cvector(B',2) *cvector(B',3)
  74. cvector(B',1) *cvector(B',3)
  75. B''=norm(B')
  76. eval(cvector(B'',1) *cvector(B'',2))
  77. eval(cvector(B'',1) *cvector(B'',3))
  78. eval(cvector(B'',2) *cvector(B'',3))
  79. x=[10,20,30]
  80. A*x
  81. C=combine(B,x)
  82. solve(C)
  83.  
  84. ; functions
  85. f(x)=sin(x)*cos(x)
  86. f'(x)=diff(f,x)
  87. f''(x)=diff(f',x)
  88. f''(x)=diff(diff(f,x),x)
  89. g(x)=diff(x^2,x)
  90. h(x)=diff(cos(x)*tan(x)/sqrt(x),x)
  91. a(x)=cos(x)
  92. a(x)=taylor(a,x,0,6)
  93.  
  94. ; error distribution
  95. a=10±2, b=20±2.4
  96. a*b,a+b,a*a,a^2
  97. eval(atan(a))
  98.  
  99. ; references
  100. a:=3
  101. f(x)=a*x^2
  102. a=4
  103. eval(f(a))
  104. f(2)
  105. f(a)
  106.  
  107.